﻿Universitatea „Al I Cuza” Iaşi Facultatea de Informatică Anul III, sesiunea aprilie 2018, cursul de Programare Bazată pe Reguli Grupa: Numele: Problema 1 a Desenaţi reţeaua RETE pentru colecţia de reguli următoare: (defrule rule1 (alpha ?a a ?a) (alpha a ?a ?a) (beta ?a ?x) => (assert (gamma ?x ?a no))) (defrule rule2 (alpha a ?a ?a) (beta b ?a) => (assert (gamma ?a ?a yes))) b Desemnaţi instanţele de reguli care se acumulează în agendă la darea comenzii (reset) în rularea programului de la pct a asupra faptelor: (deffacts done (alpha John a Mary) (alpha John a John) (alpha a Mary Mary) (alpha a John John) (beta John Mary) (beta Mary John) (beta b John) ) c Arătaţi care sint faptele adaugate in baza dupa primul si cel de al doilea pas in rularea programului de la punctul anterior 1 3 2 1 3 Problema 2 Aveți trei cutii în care se găsesc câte 100 de șnururi, în cutia A – numai roșii, în cutia B – numai galbene, în cutia C – numai albastre În fiecare cutie șnururile sunt de diverse lungimi Luând câte un șnur din fiecare cutie și legându-le între ele, doriți să creați 100 de șnururi tricolore, aproximativ de aceeași lungime Cum procedați? 1 3 Soluţii Problema 1 a c1=alpha c1=beta 2 1 b Agenda contine: (rule1 f2, f4, f5; ?a^John; ?x^Mary) (rule2 f4, f7; ?a^John) c Dupa primul pas: (gamma John John yes) Dupa al doilea pas: (gamma Mary John no) Problema 2 Sugestie de soluție Se calculează lungimea media a șnururilor tricolore din fiecare culoare, fie ele MA, MB, MC La fiecare alegere a 3 șnururi se selectează acele șnururi unicolore a căror lungime însumată este cea mai apropiată de MA+MB+MC ; un șnur se identifică prin culoare (A, B, C), index unic și lungime (deffacts snururi (snur A A1 10) (snur A A2 9) (snur A A3 8) (snur A A4 1) (snur A A5 4) (snur A A6 5) (snur A A7 11) (snur A A8 12) (snur A A9 7) (snur A A10 6) (snur B B1 10) (snur B B2 8) (snur B B3 8) (snur B B4 4) (snur B B5 4) (snur B B6 8) (snur B B7 7) (snur B B8 12) 3 (snur B B9 5) (snur B B10 6) (snur C C1 11) (snur C C2 4) (snur C C3 3) (snur C C4 9) (snur C C5 12) (snur C C6 5) (snur C C7 6) (snur C C8 10) (snur C C9 8) (snur C C10 7) (suma A 0 0) (suma B 0 0) (suma C 0 0) ) ; însumează lungimile șnururilor de aceeași culoare (defrule media-add ?m (retract ?m) (assert (suma ?x (+ ?sx ?lx) (+ ?Nx 1) $?selx ?idx)) ) ; calculează mediile lungimilor șnururilor pe fiecare culoare (defrule media-stop (declare (salience -10)) ?s (retract ?s) (assert (media ?x (/ ?sx ?Nx))) ) ; însumează aceste medii (defrule general-media ?ia (retract ?ia ?ib ?ic) (assert (lungMediuTric (+ ?ma ?mb ?mc))) ) (defrule tricolor (lungMediuTric ?N) ?sa ) (retract ?sa ?sb ?sc) (assert (tricolor (gensym) ?la ?lb ?lc))